use Config::Simple;
use Modern::Perl;
use Test::More;

my $cfg = Config::Simple->new('synopsis.ini');
note "Count is " . $cfg->param("Count") . " by default";
note $cfg->param("1");
my %Config = $cfg->vars();
note explain \%Config;
$cfg->param("Count",100);
note "Count is " . $cfg->param("Count") . " now";
#$cfg->param(-block=>'last-access',-value=>{'time'=>time()});
$cfg->param("Count",4);
$cfg->param(-block=>'test',-values=>{test=>3});
note $cfg->param("default.test_A");
note $cfg->param("default.test-B");
note "Done";
$cfg->save();

